home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Graphics_Utils / Video Easel / CAMRexx / HPP-Gas_Refract.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-06-24  |  457 b   |  24 lines
  1.  
  2. /* HPP-Gas by an idea of Toffoli, in CAMRexx by THOR */
  3.  
  4. MakeAlgorithm:
  5.    if plane=0 then
  6.       PLANEALGORITHM margolus hvphases
  7.    if plane=1 then
  8.       PLANEALGORITHM echo center1
  9. return
  10.  
  11. MakePlane:
  12.    if plane=0 then; do
  13.       lens=ul_ | ur_ | ll_ | lr_
  14.       if lens & phase_ then
  15.          SETPLANE center
  16.       else; do
  17.          if (center=opp & cw=ccw & center~=cw) then
  18.               SETPLANE cw
  19.         else  SETPLANE opp
  20.       end
  21.    end
  22. return
  23.  
  24.